home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / win_m_p / mtrash.zip / XLTRASH.TXT < prev   
Text File  |  1992-08-27  |  1KB  |  33 lines
  1. PutInStevesMctrash
  2. =ERROR(FALSE)
  3. =SET.NAME("FindAppWin",CALL("User","FindWindow","IJC",0,"Steve's McTrash Dumpster"))
  4. =IF(FindAppWin=0)
  5. =ALERT("Steve's McTrash Dumpster is not running; please start it and then try deleting this file again!",3)
  6. =RETURN()
  7. =END.IF()
  8. =IF(ISERROR(GET.DOCUMENT(2)))
  9. =ALERT("This file has not been saved yet, so it cannot be put in the dumpster!",3)
  10. =RETURN()
  11. =ELSE()
  12. =SET.NAME("DocName",GET.DOCUMENT(1))
  13. =SET.NAME("DocPath",GET.DOCUMENT(2))
  14. =END.IF()
  15. =CLOSE()
  16. =SET.NAME("EndChar",RIGHT(DocPath,1))
  17. =IF(EndChar="\")
  18. =SET.NAME("Executable","ZAP="&DocPath&DocName)
  19. =SET.NAME("DelFile",DocPath&DocName)
  20. =ELSE()
  21. =SET.NAME("Executable","ZAP="&DocPath&"\"&DocName)
  22. =SET.NAME("DelFile",DocPath&"\"&DocName)
  23. =END.IF()
  24. =SET.NAME("Channel",INITIATE("MCTRASH","FORM1"))
  25. =EXECUTE(Channel,Executable)
  26. =TERMINATE(Channel)
  27. =BEEP()
  28. =SET.NAME("FileGone",DelFile&" has been deleted!")
  29. =MESSAGE(TRUE,FileGone)
  30. =WAIT(NOW()+"00:00:03")
  31. =MESSAGE(FALSE)
  32. =RETURN()
  33.